6 DEFFNE(X)=FRE(0)-65536*(FRE(0)<0)
7 T7%=PEEK(213):Y1%=(T7%+2)/20:YT%=(T7%-21)/3+1
8 OPEN4,4,7:IFY1%=2ANDFNE(0)<31000THENY1%=3
10 IFY1%>2THENPRINT#4:CLOSE4:OPEN4,4
15 DK%=1
20 T1=79:MG=1:ET=INT(FNE(0)/60)
25 Y2%=4:Y3%=4:Y4%=17:CD$="":PK%=194
27 IFY1%>1THENCD$=CD$+"":Y2%=2:Y3%=10:Y4%=21:PK%=52
30 LL=1:G$=CHR$(34):SH$=CHR$(160):DIMT$(ET),TR$(20)
45 DEFFNA(X)=W3+(Z6-1)/Y2%
50 S$=CHR$(32):FORI=1TO15:SQ$=SQ$+S$:NEXT:SP$=LEFT$(SQ$,5)
70 GOTO100
85 PRINTTAB(YT%)"**[196]ISK ERROR**":GOTO95
90 PRINTTAB(YT%)"*[206]O FILE IN MEMORY*"
95 GOSUB18000
100 :
105 IFY1%<3THENPOKE788,PK%:PRINT"";:GOTO110
107 POKE144,88:POKE59468,14
110 PRINT"[147]"TAB(YT%)"**[207]PERATIONS**":PRINTTAB(YT%)"--------------"
150 PRINTTAB(YT%)"[215][146]RITE":PRINTTAB(YT%)"[197][146]DIT TEXT"
195 PRINTTAB(YT%)"[196][146]ISPLAY TEXT":PRINTTAB(YT%)"[193][146]DDRESS LETTER"
200 PRINTTAB(YT%)"[208][146]RINT TEXT"
220 PRINTTAB(YT%)"[198][146]ILE COMMANDS":PRINTTAB(YT%)"[211][146]ET FORMAT":
225 PRINTTAB(YT%)"[209][146]UIT":PRINTTAB(YT%)"[195][210][211][210]^[146] [212].[207].[198]."
230 AC=0:RW=0:FORI=1TO2:NEXTI:FORJ=1TO2:NEXTJ
240 PRINTTAB(YT%+6)"[215]AIT":GOSUB19000:CLOSE2
300 PRINTTAB(YT%-1)"[145]";INT(FNE(0)/(T1-5))"LINES FREE"
400 PRINTTAB(YT%)"[212]OP LINE:"HI
500 GOSUB18010
520 IFA$="[145]"THENPRINT#4:GOTO500
530 FORI=1TO9:IFA$=MID$("WED[196]APFSQ",I,1)THEN570
540 NEXTI:GOTO500
570 PRINT"[147]":ONIGOTO1000,5500,6000,6000,600,12000,4000,21000,8000
580 GOTO100
600 FORI=1TO5:PRINT"[147][193]DDRESSEE'S NAME":PRINT"[193]DDRESS":PRINT"[195]ITY"
669 PRINT"[211]TATE + [218]IP":PRINT"[212]ODAY'S DATE"
673 FORJ=1TO5:PRINTLEFT$(CD$,J*4);"  "C$(J);:IFC$(J)=""THENPRINTSH$
675 NEXTJ
678 PRINTLEFT$(CD$,I*4);:INPUTC$(I):IFC$(I)=SH$THENC$(I)=""
680 NEXTI
684 PRINT"OK? (Y/N)":GOSUB18000:IFA$="N"THEN600
690 GOTO100
1000 PRINT"[215]RITE":PRINT"[210][197][212][213][210][206][146] NEW PARAGRAPH"
1005 IFHI>0THENPRINTHI;T$(HI)""
1030 GOSUB10000:IFL<2ORLL=>ETTHEN100
1040 T$(LL)=L$:PRINT:LL=LL+1
1060 GOTO1030
3000 IFCX>CYTHENCZ=CX:CX=CY:CY=CZ
3010 CZ=CY-CX+1
3020 GOSUB19000
3030 FORI=CXTOHI-CZ
3040 T$(I)=T$(I+CZ)
3050 NEXTI:T$(I)="[138]":CX=0:J=I+1
3055 FORI=JTOJ+CZ+2:T$(I)="":NEXTI
3060 GOSUB19000:GOTO5745
4000 PRINT"[204][146]OAD","[211][146]AVE":PRINT" <SH[146]>-[211]POOL FILE"
4017 PRINT"[208][146]URGE","[195][146]ATALOG"
4020 GOSUB18000:M$=A$
4022 FK$="@W/":IFM$="[204]"ORM$="[211]"THENFK$="@S/":GOTO4040
4025 IFM$="C"THEN49000
4030 IFM$="P"THEN4970
4035 IFM$<>"S"ANDM$<>"L"THEN100
4040 IF(M$="S"ORM$="[211]")ANDHI=0THEN90
4050 PRINT"[212][146]APE","[196][146]ISK":GOSUB18000
4060 J=1:IFM$="L"THENINPUT"[211]TARTING ADDRESS  1[157][157][157]";J
4070 IFA$="D"THEN4600
4080 IFA$<>"T"THEN100
4170 IFM$="S"ORM$="[211]"THENAC=1
4200 PRINT"[212]APE READY?":GOSUB18000
4210 IFY1%>2THENPOKE144,85
4220 OPEN2,1,AC:GOTO4650
4600 IFDK%<>1THEN85
4610 PRINT"[198]ILENAME?":INPUT"  MISC[157][157][157][157][157][157]";FL$
4625 FM$=",S,W":IFM$="L"ORM$="[204]"THENFM$=",S,R"
4630 FL$=FK$+FL$+FM$
4640 OPEN2,8,2,FL$:GOSUB20000:IFE1<>0THEN85
4645 IFM$="[211]"THENRW=2:GOTO12010
4650 IFM$="L"ORM$="[204]"THEN4800
4660 FORI=1TOHI:PRINT#2,G$+T$(I)+G$
4664 PRINT"*";:NEXTI:GOTO100
4800 FORI=JTOET:INPUT#2,T$(I):IF(ST)AND64THEN100
4900 PRINT"*";:NEXTI:GOTO85
4970 PRINT"[193]RE YOU SURE? (Y/N)":GOSUB18000:IFA$<>"Y"THENPRINT"[193]BORTED":GOTO95
4980 FORI=1TOET:T$(I)="":NEXT:FORI=1TO4:C$(I)="":NEXT:GOTO90
5000 GOSUB19000:LG=FNA(0):AC=0
5010 PRINT"[147]"LG"[157]>";T$(LG)
5020 FORLB=1TO20:PRINT:PRINT:GOSUB10000:IFL<2ORHI+LB>ET-2THEN5200
5050 TR$(LB)=L$:NEXTLB
5200 LB=LB-1:IFLB=0THEN5745
5250 FORI=HI+LBTOLG+1+LBSTEP-1:T$(I)=T$(I-LB):NEXTI:J=0
5275 FORI=LG+1TOLG+LB:J=J+1:T$(I)=TR$(J):TR$(J)="":NEXTI:GOSUB19000:GOTO5745
5500 IFHI=0THEN90
5505 CX=0:INPUT"LINE #  1[157][157][157]";W3:Z6=1:Z5=1:JG$=""
5745 IFW3>HI-Y3%THENW3=HI-Y3%
5747 IFW3<1THENW3=1
5750 Z4=1:PRINT"[147]":FORI=W3TOW3+Y3%
5775 PRINTLEFT$(CD$,Z4);I"[157]";TAB(4)CHR$(34);T$(I);CHR$(34):Z4=Z4+Y2%
5800 NEXTI
5803 PRINTLEFT$(CD$,22);:IFY1%>1THENPRINT:PRINT
5805 PRINT"[195][210][211][210]>[146][197]DIT _[146][211]WAP [196][146]ELETE";:IFY1%>1THENPRINT
5807 PRINT"[201][146]NSERT [195][210][211][210][146]UP, DOWN";
5915 IFZ6<1THENZ6=1:W3=W3-1:GOTO5745
5925 IFZ6>Y4%THENZ6=Y4%:W3=W3+1:GOTO5745
5950 PRINTLEFT$(CD$,Z5)" [157] ";
5952 PRINTLEFT$(CD$,Z6)">[146]";:Z5=Z6
5955 GOSUB18000
5962 IFA$=""THENZ6=Z6+Y2%:GOTO5915
5965 IFA$=""THENPRINTTAB(2);:JG$=T$(FNA(0)):INPUTT$(FNA(0)):GOTO5745
5970 IFA$="[145]"THENZ6=Z6-Y2%:GOTO5915
5972 IFA$="D"ANDCX<>0THENCY=FNA(0):GOTO3000
5974 IFA$="D"THENCX=FNA(0)
5975 IFA$="I"THEN5000
5980 IFA$="_"ANDJG$<>""THENJH$=T$(FNA(0)):T$(FNA(0))=JG$:JG$=JH$:GOTO5745
5985 IFASC(A$)=13THEN100
5990 GOTO5955
6000 IFHI=0THEN90
6010 GOSUB17000
6020 TU=T1:T1=T7%:RW=1:IFI=4THENAC=1
6030 GOTO12010
6100 T1=TU:IFA$=""THEN100
6110 GOTO95
8000 PRINT"[147] ARE YOU SURE? (Y/N)"
8010 GET S$:IFS$=""THEN8010
8020 IF S$<>"Y"THEN100
8030 IF Y1%>2THENPOKE144,85
8040 NEW:END
10000 L$=""
10015 IFAC=13ORLL=1THENL$="_"
10020 PRINT"[164][157]";:L=LEN(L$)
10030 GOSUB18010:IFA$=""THENA$=SP$
10032 IFA$=SH$THENA$=S$
10035 AC=ASC(A$)
10040 IF(L>57ANDAC=32)ORL>72ORAC=13THENPRINTS$;:RETURN
10045 IF(AC=20ORAC=148)ANDL>1THENPRINT"";:L$=LEFT$(L$,L-1):GOTO10020
10050 IFAC=34THEN10020
10060 IF(AC>31ANDAC<96)OR(AC>192ANDAC<219)THENL$=L$+A$:PRINTA$;
10080 GOTO10020
11000 FORI=1TOHI:Y7$=T$(I):GOSUB13000:IFA$=""THENAC=1:PRINT"[193]BORTING"
11200 NEXTI:IFPG<>0THENFORPG=PG+1TO57:PRINT#4:NEXT:GOSUB13000
11210 IFAC=1THEN100
11220 PD=0:GOTO11000
12000 IFHI=0THEN90
12001 PRINT" [208][210][201][206][212]":PRINT"[206][146]EW DOCUMENT"
12002 PRINT"[195][146]ONTINUE OLD DOCUMENT":PRINT"[211][146]POOL FILE"
12003 RW=0:GOSUB18000:M$=A$:IFM$="C"THENGOSUB17000:GOTO12020
12004 IFM$<>"N"ANDM$<>"S"THEN100
12005 PG=0:PD=0:PRINT" [211]ET TO TOP-OF-FORM..  [210]EADY?"
12006 GOSUB18010:IFA$="[145]"THENPRINT#4:GOTO12006
12009 GOSUB17000:IFM$="S"THENRW=3:GOTO11000
12010 IFC$(1)=""THEN12020
12015 FORI=1TO7:Y7$=C$(I):IFI=3THENY7$=Y7$+","
12018 GOSUB13000:NEXT
12020 TL=HI:PH=0:I=1:T$=""
12030 IFLEN(T$)+LEN(T$(I)+S$)>245THEN12100
12040 IF(LEFT$(T$(I),1)="_"ANDI<>1)ORI>TLTHENPH=1:GOTO12100
12050 T$=T$+T$(I)+S$:I=I+1
12060 GOTO12030
12100 IFLEFT$(T$,1)="_"THENT$=SP$+MID$(T$,2)
12110 FORJ=T1TO1STEP-1
12120 IFMID$(T$,J,1)=S$THENT1$=LEFT$(T$,J-1):T$=MID$(T$,J+1):GOTO12200
12130 NEXTJ:T1$=LEFT$(T$,T1-1):T$=MID$(T$,T1)
12200 IFMG=1AND(RW<>1ORAC=1)THENGOSUB14000
12220 Y7$=T1$:GOSUB13000:T1$=""
12225 IFDT=1THENGOSUB13000
12227 IFA$=""THEN12300
12230 IFLEN(T$)>T1THEN12110
12240 IFPH=1ANDT$=""THEN12245
12242 GOTO12250
12245 PH=0:IFDT=0THENGOSUB13000
12247 IFI=<TLTHEN12050
12250 IFPH=1THEN12110
12260 IFI>TLTHEN12300
12270 GOTO12030
12300 ONRWGOTO6100,100
12310 PRINT"[212]OP-OF-FORM? ([217]/[206])":GOSUB18000:IFA$<>"Y"THEN100
12320 IFPG=0THEN100
12330 GOSUB13000:GOTO12320
13000 IFRW=2THEN13800
13005 GETA$:IFA$=""THENGOSUB18010
13010 IFRW=3THEN13050
13015 IFRW=1THENPRINTY7$:Y7$="":RETURN
13020 Y7$=LEFT$(SQ$,SP)+Y7$
13050 PRINT#4,Y7$:Y7$=""
13100 PG=PG+1:IFPG<58THENRETURN
13125 PD=PD+1:PD$="("+MID$(STR$(PD),2)+")"
13150 PRINT#4:PRINT#4,""TAB(65)PD$
13200 FORJ=1TO6:PRINT#4:NEXTJ:PG=0
13700 RETURN
13800 Y7$=LEFT$(SQ$,SP)+Y7$:IFY7$=""THENY7$=S$
13900 PRINT#2,G$+Y7$+G$:Y7$="":RETURN
14000 J5=1:T8=T1-LEN(T1$):J=1:MD=0:IFT8>25THENT8=25
14050 MD$=MID$(T1$,J,1)
14075 IFMD$<>S$THENMD=1
14085 IFMD$=S$ANDMD=0THEN14200
14150 IFMD$=S$THENT1$=LEFT$(T1$,J)+MID$(T1$,J):J=J+1:J5=J5+1:IFJ5>T8THENRETURN
14200 J=J+1:IFJ>LEN(T1$)THENRETURN
14225 GOTO14050
17000 PRINT"[195][210][211][210]>[146] [208]AUSE":PRINT"[195][210][211][210]V[146] [193]BORT"
17100 PRINT"-----------------":RETURN
18000 FORIK=1TO10:GETA$:NEXTIK
18010 GETA$:IFA$=""THEN18010
18020 RETURN
19000 FORI=1TOET-2:IFT$(I)="[138]"THEN19020
19007 IFT$(I)=""THENIFT$(I+1)=""ANDT$(I+2)=""THENT$(I)="[138]":GOTO19020
19010 NEXTI
19020 HI=I-1:LL=I:RETURN
20000 IFEE=0THENEE=15:OPENEE,8,EE
20010 INPUT#EE,E1,E2$,E3,E4
20020 IFE1=0THENRETURN
20030 PRINTE1;E2$;E3;E4:RETURN
21000 PRINT"[147]"CD$TAB(YT%)"* [196]EFAULT";
21020 PRINT"[205]ARGINS:"
21022 PRINT"*[206][146]ONE"
21025 PRINT" [211][146]MALL","(1/2 INCH)"
21030 PRINT" [204][146]ARGE","(1.5 INCH)":GOSUB18000:T1=79:SP=0
21060 IFA$="S"THENT1=72:SP=4
21075 IFA$="L"THENT1=63:SP=8
21100 PRINT"[210]IGHT-JUSTIFICATION?  (*[217]/[206])":MG=1
21120 GOSUB18000:IFA$="N"THENMG=0
21200 PRINT"[196]OUBLE SPACE?":PRINT" [217][146]ES":PRINT" [206][146]O":DT=0
21220 PRINT"*[194][146]ETWEEN PARAGRAPHS":GOSUB18000:IFA$="Y"THENDT=1
21230 IFA$="N"THENDT=2
21250 IFY1%>2THEN100
21300 PRINT"[210]EPEATING KEYS? ([217]/*[206])":GOSUB18000
21350 POKE650,0:IFA$="Y"THENPOKE650,128
21500 GOTO100